Skip to main content
This forum is closed to new posts and responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:

HCL Software Customer Support Portal for U.S. Federal Government clients
HCL Software Customer Support Portal

Notes/Domino 6 and 7 Forum

Notes/Domino 6 and 7 Forum

  

PreviousPrevious NextNext

View Code to export Business contacts to comma del. text file
~Dean Brefanaman 9.Jan.04 06:19 PM a Web browser
Notes Client All Releases Windows XP


mValue1 := @If((NameDisplayPref = "1" | NameDisplayPref = 1 | @IsUnavailable(NameDisplayPref)) & (LastName !="" | FirstName != "");
@If(FirstName = "";@Trim(@Subset(LastName;1));@Trim(@Subset(FirstName;1)) + " " +
@Trim(@Subset(LastName;1)));
NameDisplayPref="2" | NameDisplayPref = 2 & (LastName!="" | FirstName !="");
@Trim(@Subset(LastName;1)) ;
CompanyName);


mValue2 := @If((NameDisplayPref = "1" | NameDisplayPref = 1 | @IsUnavailable(NameDisplayPref)) & (LastName !="" | FirstName != "");
@If(FirstName = "";@Trim(@Subset(LastName;1));@Trim(@Subset(FirstName;1)) + " " +
@Trim(@Subset(LastName;1)));
NameDisplayPref="2" | NameDisplayPref = 2 & (LastName!="" | FirstName !="");
@If(FirstName!="";@Trim(@Subset(FirstName;1));"");
CompanyName);


addr := @If(MailAddress = "" & InternetAddress != ""; @Trim(InternetAddress); @Trim(MailAddress));
mValue3 := @If(@Contains(@LowerCase(addr); "cn="); @Name([Abbreviate]; addr); addr);

mValue4 :=@If(CompanyName != "";CompanyName;"");

mValue5 := OfficeStreetAddress;

mValue6 := OfficeCity;

mValue7 := OfficeState;

mValue8 :=OfficeZip;

mValue9 := @Text(OfficePhoneNumber);

mValue10 :=@Text(OfficeFAXPhoneNumber);

mValue11 := @Text(CellPhoneNumber);

mValue12 :=@Text(PhoneNumber );


"\"" + @Trim(@ReplaceSubstring(@Implode(mValue1; " | ") ; "," : "\"":@Char(0):@Char(13); " " )) + "\""+
"," +
"\"" + @Trim(@ReplaceSubstring(@Implode(mValue2; " | ") ; "," : "\"":@Char(0):@Char(13); " " )) + "\"" +
"," +
"\"" + @Trim(@ReplaceSubstring(@Implode(mValue3; " | ") ; "," : "\"":@Char(0):@Char(13); " " )) + "\"" +
"," +
"\"" + @Trim(@ReplaceSubstring(@Implode(mValue4; " | ") ; "," : "\"":@Char(0):@Char(13); " " )) + "\""+
"," +
"\"" + @Trim(@ReplaceSubstring(@Implode(mValue5; " | ") ; "," : "\"":@Char(0):@Char(13); " " )) + "\""+
"," +
"\"" + @Trim(@ReplaceSubstring(@Implode(mValue6; " | ") ; "," : "\"":@Char(0):@Char(13); " " )) + "\""+
"," +
"\"" + @Trim(@ReplaceSubstring(@Implode(mValue7; " | ") ; "," : "\"":@Char(0):@Char(13); " " )) + "\""+
"," +
"\"" + @Trim(@ReplaceSubstring(@Implode(mValue8; " | ") ; "," : "\"":@Char(0):@Char(13); " " )) + "\""+
"," +
"\"" + @Trim(@ReplaceSubstring(@Implode(mValue9; " | ") ; "," : "\"":@Char(0):@Char(13); " " )) + "\""+
"," +
"\"" + @Trim(@ReplaceSubstring(@Implode(mValue10; " | ") ; "," : "\"":@Char(0):@Char(13); " " )) + "\""+
"," +
"\"" + @Trim(@ReplaceSubstring(@Implode(mValue11; " | ") ; "," : "\"":@Char(0):@Char(13); " " )) + "\""+
"," +
"\"" + @Trim(@ReplaceSubstring(@Implode(mValue12; " | ") ; "," : "\"":@Char(0):@Char(13); " " )) + "\""




Personal Address Book & MS Office I... (~Dean Brefanama... 2.Jan.04)
. . RE: Personal Address Book & MS Offi... (~Laura Chutumiv... 7.Jan.04)
. . . . Re: Personal Address Book & MS Offi... (~Dean Brefanama... 9.Jan.04)
. . . . . . View Code to export Business contac... (~Dean Brefanama... 9.Jan.04)
. . . . . . . . Office XP & Office 2000 seem OK wit... (~Dean Brefanama... 9.Jan.04)

Document Options






  Document options
Print this pagePrint this page

Search this forum

Forum views and search


  Forum views and search
Date (threaded)
Date (flat)
With excerpt
Category
Platform
Release
Advanced search

Member Tools


RSS Feeds

 RSS feedsRSS
All forum posts RSS
All main topics RSS